-- background: 13702 from stack: in.2
-- bmap block id: 4517
-- flags: 4000
-- background id: 0
-- name: Instruction
----- HyperTalk script -----
on openBackground
  -- Should really be in the openStack handler, but, at least for me,
  -- this never gets executed!?!
  if the short version of HyperCard < 1.2 then
    answer "This stack needs HyperCard 1.2 or later to run." with "Sorry"
    go home
  end if
  show menubar
  hide msg box
  pass openBackground
end openBackground




-- part 85 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=288 top=113 right=128 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: version


-- part 80 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=140 top=305 right=335 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Export BibTeXÉ
----- HyperTalk script -----
on mouseUp
  global gFileName

  put rawFileName(gFileName) into rawFile
  if rawFile is empty
  then put the short name of this stack & ".bib" into rawFile
  put StdFile(put, "Save to BibTeX file:", rawFile) into newFile
  if newFile is empty then exit mouseUp
  answer "Is this for use with WordRef?" with "Cancel" or "Other BibTeX" or "WordRef"
  put it into doWordRef
  if it is "Cancel" then exit mouseUp
  set cursor to watch
  put newFile into gFileName
  lock screen
  WriteBibTeX gFileName, doWordRef
  unlock screen
  hide msg box
end mouseUp

-- returns the "short" name of a file name
function rawFileName fileName
put offset(":",fileName) into index
repeat while index <> 0
  put the number of chars of fileName into numChars
  put char index+1 to numChars of fileName into fileName
  put offset(":",fileName) into index
end repeat
return fileName
end rawFileName




-- part 82 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=246 right=286 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  doMenu "Find..."
end mouseUp



-- part 84 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=353 top=305 right=335 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ClearÉ
----- HyperTalk script -----
on mouseUp
  answer "Really delete all references from the stack?" with "Yes" or "No"
  if it is "No" then exit mouseUp
  set cursor to watch
  lock screen
  put the id of this card into myself
  go next
  repeat until the id of this card is myself
    -- clear the card if it's the last of its kind
    if the number of cds of this bg = 1 then
      repeat with i = 1 to the number of bg flds
        put empty into bg field i
      end repeat
      go next
    else
      doMenu "Delete Card"
    end if
  end repeat
  unlock screen
end mouseUp



-- part 86 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=107 top=45 right=82 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: Title


-- part 87 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=140 top=273 right=303 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import BibTeXÉ
----- HyperTalk script -----
on mouseUp
  put StdFile(get, "TEXT") into inFile
  if inFile is empty then exit mouseUp
  set cursor to watch
  lock screen
  ReadBibTeX inFile
  if the result is not empty then
    answer the result with "OK"
  end if
  put "Sorting..."
  sort by fld "keyField"
  unlock screen
  hide msg box
end mouseUp



-- part 89 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=257 top=273 right=303 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Duplicate Keys
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  lock screen
  sort by bg fld "keyField"
  put the id of this cd into myself
  go next
  put empty into lastKey
  repeat until the id of this cd is myself
    if bg fld "keyField" is not empty then
      if bg fld "keyField" = lastKey then
        put "This card and the previous have key" && quote & lastKey & quote
        exit mouseUp
      end if
      put bg fld "keyField" into lastKey
    end if
    go next
  end repeat
  unlock screen
  put "No duplicates"
end mouseUp



-- part 88 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=204 right=244 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show cd fld "Help Field"
end mouseUp



-- part 90 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=70 top=17 right=57 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 24830 / 24830
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  lock screen
  go card 15
  --  put the id of this cd into myself
  --  go next
  --  repeat until the id of this cd is myself
  --    if bg fld "keyField" is not empty then exit mouseUp
  --    go next
  --  end repeat
end mouseUp



-- part 91 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=257 top=305 right=335 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New StackÉ
----- HyperTalk script -----
on mouseUp
  put the short name of this stack into source
  put StdFile(put, "Save a Copy:","Copy of"&&source) into dest
  if dest is empty then exit mouseUp
  set cursor to watch
  put word 2 of the long name of this stack into source
  put char 2 to number of chars of source - 1 of source into source
  CopyFile source,dest
  if the result is not empty then
    put "Error in copy:" && the result
    exit mouseUp
  end if
  go dest
end mouseUp



-- part 93 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=36 right=76 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual iris close
  go home
end mouseUp



-- part 94 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=78 right=118 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Item
----- HyperTalk script -----
on mouseDown
  get PopUpMenu(0, "Article,Book,Booklet,InBook,InCollection", "InProceedings,Manual,MastersThesis,Misc,PhDThesis", "Proceedings,TechReport,Unpublished")
  set hilite of the target to false
  if item 1 of it is empty then exit mouseDown
  NewBackground (item 1 of it)
end mouseDown



-- part 95 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=120 right=160 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Items
----- HyperTalk script -----
on mouseUp
  sort by fld "keyField"
end mouseUp



-- part 96 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=8 top=162 right=202 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan Items
----- HyperTalk script -----
on mouseUp
  show all cds
end mouseUp